home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
JCSM Shareware Collection 1996 September
/
JCSM Shareware Collection (JCS Distribution) (September 1996).ISO
/
other___
/
getmoney.zip
/
GLOBAL.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-12-03
|
694b
|
24 lines
Declare Function GetPrivateProfileString% Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal lpDefault$, ByVal lpReturnedString$, ByVal nSize%, ByVal lpFilename$)
Declare Function WritePrivateProfileString% Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal lpString$, ByVal lpFilename$)
Global Const SerialNum$ = "1234567"
Global Const INIFILENAME$ = "GetMoney.ini"
Global Const Versnum$ = "1.0"
Global Const MODAL = 1
Global Const MODELESS = 0
Global RegStat As String
Global First As String
Global Last As String
Sub SelectWholeText (InTextBox As Control)
InTextBox.SelStart = 0
InTextBox.SelLength = Len(InTextBox.Text)
End Sub